home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / dskut / dm313.zip / COMPRESS.MNU < prev    next >
Text File  |  1990-03-23  |  2KB  |  104 lines
  1. Comment
  2. ===================================================
  3.  
  4. DM3 Menu Overlay * CopyRight 1989-90 By Marc Perkel
  5.  
  6. This is a File Compression Overlay fo DM3. This allows
  7. you to compress marked files.
  8.  
  9. Note: For self extracting ZIP files you will need PKZIP
  10. version 1.10 or later.
  11.  
  12. ===================================================
  13. EndComment
  14.  
  15. Var %CompressName %FullCompressName %EchoSt
  16.  
  17. if DosVersionString >= '3.30'
  18.    %EchoSt = '@Echo Off'
  19. else
  20.    %EchoSt = 'Echo Off'
  21. endif
  22.  
  23. if ColorScreen
  24.    BoxHeaderColor Yellow Mag
  25.    InverseColor Yellow Mag
  26.    BoxBorderColor LGreen Brown
  27.    BoxInsideColor Grey Brown
  28. else
  29.    BoxHeaderColor Black Grey
  30.    InverseColor Black Grey
  31.    BoxBorderColor White Black
  32.    BoxInsideColor Grey Black
  33. endif
  34.  
  35. ClearScreenOnExit Off
  36. BlankTime = 10
  37. BlankMessage = 'Executing DM3'
  38.  
  39. BoxHeader = ' Compress File Menu '
  40. DrawBox 28 7 26 8
  41. TextColor Yellow Brown
  42. ClearLine 205
  43. TextColor Grey Brown
  44. UseArrows
  45. CapsColor Yellow Brown
  46.  
  47. Writeln
  48. Writeln '  1 ZIP Marked Files'
  49. Writeln '  2 PKARC Marked Files'
  50. Writeln '  3 ICE Marked Files'
  51. Writeln '  4 Self Extract ICE'
  52. Write   '  5 Self Extract ZIP'
  53.  
  54. OnKey 'E'
  55.   ME %MenuFileName
  56.  
  57. OnKey '1'
  58.   |FileNameBox
  59.   %EchoSt
  60.   PKZIP -EX %CompressName  @%1 ;Note: 2 spaces here causes 1 in batch file
  61.   PKZIP -V %CompressName |MORE
  62.  
  63. OnKey '2'
  64.   |FileNameBox
  65.   %EchoSt
  66.   PKARC A %CompressName  @%1
  67.   PKARC V %CompressName |MORE
  68.  
  69. OnKey '3'
  70.   |FileNameBox
  71.   %EchoSt
  72.   TYPE %1|DOLIST ICE A %CompressName  @L
  73.   ICE V %CompressName |MORE
  74.  
  75. OnKey '4'
  76.   |FileNameBox
  77.   |%FullCompressName = %FullCompressName + '.ICE'
  78.   %EchoSt
  79.   TYPE %1|SORT|DOLIST ICE A %CompressName  @L
  80.   ICE S %CompressName
  81.   DEL %FullCompressName
  82.  
  83. OnKey '5'
  84.   |FileNameBox
  85.   |%FullCompressName = %FullCompressName + '.ZIP'
  86.   %EchoSt
  87.   PKZIP -EI %CompressName  @%1
  88.   ZIP2EXE -J %CompressName
  89.   DEL %FullCompressName
  90.  
  91.  
  92. Procedure FileNameBox
  93. var Period
  94.   BoxBorderColor LCyan Blue
  95.   BoxInsideColor White Blue
  96.   DrawBox 36 13 35 3
  97.   TextColor White Blue
  98.   Write ' File: '
  99.   %CompressName = Readln
  100.   Period = pos('.',%CompressName)
  101.   if Period > 0 then %CompressName = Left(%CompressName,pred(Period))
  102.   %FullCompressName = %CompressName
  103. EndProc
  104.